home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 December
/
64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64
/
listing 4
< prev
next >
Wrap
Text File
|
2022-10-26
|
736b
|
53 lines
lISTING 4:
LDA #200
STA $D000 ;X-kOORD.=200
LDA #20
STA $D001 ;Y-kOORD.=20
LDA #01
STA $D015 ;sPRITE 1 EIN
SEI ;iNTERRUPT SPERREN
LDA #<NEUIRQ ;vEKTOR
LDX #>NEUIRQ ;VERBIEGEN
STA $0314
STX $0315
LDA #$7F
STA $DC0D
LDA #$01
STA $D01A
LDA #$F7
STA $D012
LDA $D011
AND #$7F
STA $D011
LDA #$00
STA $3FFF
CLI
RTS
:NEUIRQ LDA $D019
STA $D019
LDA $D012
CMP #$F8 ;zEILE 248 ?
BNE NEUIRQ1
LDA #$17
STA $D011
LDA #$FF ;NCHSTER irq BEI
STA $D012 ;rASTERZEILE 255
JMP $EA81
:NEUIRQ1 CMP #$FF ;zEILE 255 ?
BNE NEUIRQ2
LDA #$97
STA $D011 ;rAHMEN AUSSCHALTEN
LDA #$28
STA $D012
JMP $EA81
:NEUIRQ2LDA #$1B ;nORMALZUSTAND
STA $D011 ;HERSTELLEN UND
LDA #$F8 ;irq-rOUTINEN
STA $D012 ;AUFRUFEN
JMP $EA31